﻿Imports Commander_Wars.Spieletools
Public Class KOConrad
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "CONRAD"
        Armee = Armeen.GE.ToString
        Musik = "Conrad"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 2
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()

        Kampfbonus = Kampfboni.Vision
        StaerkebonusproEinheit = 5
        Sichtbonus = 0
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Sichtbonus = 1
        StaerkebonusproEinheit = 10
        If OhneFunktion = False Then
            AnimationEigene("JESSGABE", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWars Then
            Sichtbonus = 1
            StaerkebonusproEinheit = 10
            If OhneFunktion = False Then
                AnimationEigene("JESSGABE", 2)
            End If
            GabeEingesetzt()
        Else
            Sichtbonus = 2
            StaerkebonusproEinheit = 15
            If OhneFunktion = False Then
                AnimationEigene("SPEZIALGABE", 2)
            End If
            GabeEingesetzt()
        End If
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

Public Class KOBeschreibungConrad
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Conrad"
        Fein = "Techno"
        Nein = "Blackouts"
        Beschreibung = New String() {"Ein Strategiegenie von Green", "Earth, der praezise Taktiken", "liebt. Sehr klug aber unerfahren."}
        Stil = New String() {"Der Schaden den seine Einheiten", "verursachen steigt umso mehr", "eigene Einheiten den Feind sehen."}
        Gabebeschreibung = New String() {"Seine Sichtweite steigt um 1", "und der angerichtete Schaden", "steigt ebenfalls."}
        SpezialgabeBeschreibung = New String() {"Seine Sichtweite steigt um 2", "und der angerichtete Schaden", "steigt enorm."}
        GabeKosten = 3
        Spezialgabekosten = 4
        Gaben = New String() {"Kalkulierter Schlag", "Praezisses Attentat"}
        Synergie = New Decimal() {1, 1, -1, -1}
        KONamen = New String() {"SONJA", "PETER", "MAVERIK", "FALCONE"}
        Doppelgabenamen = New String() {"Meisterplan", "Show der Faehigkeiten", "Doppel-Gabe", "Doppel-Gabe"}
        Gabesaetze = New String() {"Du magst erfahrener sein, dass heisst aber nicht das ich dir nicht ein zwei Dinge beibringen kann." _
                                           , "Ich bin nicht so leicht zu besiegen. Der Kampf hat gerade erst angefangen." _
                                           , "Menschen von Blue Moon. Ich brauche eure Hilfe." _
                                           , "Die Chancen das du durchbrichst sind sehr klein. Glaub mir ich wuesste es wenn es anders waere." _
                                           , "Deine Strategie addiert sich nicht, aber meine multipliziert sich." _
                                           , "Mach mich nicht wuetend!... Sonst werfe ich meine Zahlen durcheinander."}
        Siegsaetze = New String() {"Solide Taktiken erzeugen solide Ergebnissse." _
                                , "Das war einfacher als gedacht. Waren meine Zahlen falsch?" _
                                , "Entweder werde ich besser oder ihr immer schelchter."}
        Tauschsaetze = New String() {"Einen Augenblick. Ich muss noch etwas kalkulieren." _
                                    , "Der wahre Test kommt erst noch."}
        Doppelgabesaetze = New DoppelGabesatz() {New DoppelGabesatz("CONRAD", "PETER", "Danke fuer deine Hilfe. Ich dachte ich waere in Gefahr.", "Das machst du gut, aber bleibe Aufmerksam.") _
                                              , New DoppelGabesatz("CONRAD", "PETER", "Hmm! Ich war das war nicht so effektiv wie gedacht", "Du achtest nicht nur auf den Sieg. Das mag ich.") _
                                              , New DoppelGabesatz("PETER", "CONRAD", "So mache ich das.", "Ich habe viel gelernt") _
                                              , New DoppelGabesatz("PETER", "CONRAD", "Sie sind meinen Faehigkeiten nicht gewachsen.", "Selbst ich als dein Partner, hat dich behindert.") _
                                              , New DoppelGabesatz("CONRAD", "SONJA", "Sehen wir alles?", "Ja. Der Gegner kann sich nicht verstecken.") _
                                              , New DoppelGabesatz("CONRAD", "SONJA", "Meine Berchnungen sagen...", "Meine Ergebnis ist dasselbe.")}
        Niederlagesaetze = New String() {"Was das habe ich nicht gesehen!", _
                                     "Wie konntet ihr euch vor mir verstecken."}
    End Sub
End Class
